read_Survey <- function(file){
  
  options(stringsAsFactors = FALSE)
  
  df <- read.csv(file, header = FALSE, skip = 2)
  names(df) <- read.csv(file, header = TRUE) %>% names()
  
  return(df)
  
}